home *** CD-ROM | disk | FTP | other *** search
/ Micom Basic 1995 October / CD [BM9510].bin / basic / toukou / n88basic / amicmk.bas next >
Encoding:
BASIC Source File  |  1995-08-11  |  1.3 KB  |  19 lines
  1. 1000 '          save "amicmk.bas"               'AmidarMan character making
  2. 1010 SCREEN 3,0,0,1: COLOR ,,,,2: CLS 3: DEFINT G: DIM GR(257,13): F=4
  3. 1020 LINE(0,31)-(31,0),7,BF,15: LINE-(31,31),8: LINE-(0,31),8: GOSUB *CGET: F=0
  4. 1030 CIRCLE(15,15),12,1,,,,F: CIRCLE(9,15),2,7: CIRCLE(21,15),2,7: GOSUB *CGET
  5. 1040 CIRCLE(15,15),12,6,.4,5.9,,F: CIRCLE(15, 7),2,2,,,,F: GOSUB *CGET
  6. 1050 CIRCLE(15,15),12,0,,,,F: CIRCLE(10,10),2,7,,,,F: GOSUB *CGET
  7. 1060 FOR I=0 TO 3: READ C,D$: FOR J=3 TO 12: D=VAL("&h"+MID$(D$,J-2,1))
  8. 1070 FOR K=0 TO 3: IF D AND 2^K THEN LINE(I*8+K*2,J*2)-STEP(1,1),C,BF
  9. 1080 NEXT K,J,I: GOSUB *CGET: F=5: LINE(15,0)-(16,31),2,B: GOSUB *CGET
  10. 1090 PUT(0,0),GR(0,5),PSET: LINE(16,15)-(31,16),6,B: GOSUB *CGET
  11. 1100 PUT(0,0),GR(0,5),PSET: LINE( 0,15)-(15,16),6,B: GOSUB *CGET
  12. 1110 LINE(15,0)-(16,31),6,B: GOSUB *CGET: LINE(0,15)-(31,16),6,B: GOSUB *CGET
  13. 1120 FOR I=0 TO 3: PUT((I\2+1)*32,(I MOD 2)*32),GR(0,4),PSET: NEXT
  14. 1130 LINE(48,15)-(79,48),6,B: LINE(47,16)-(80,47),6,B: X=32: Y=32: GOSUB *CGET
  15. 1140 Y=0: GOSUB *CGET: X=64: GOSUB *CGET: Y=32: GOSUB *CGET: CLS 2
  16. 1150 DEF SEG=VARPTR(GR(0,0),1): BSAVE "amidar.chr",0,&H1C38: END
  17. 1160 *CGET GET(X,Y)-STEP(31,31),GR(0,F): F=F+1: PUT(0,0),GR(0,4),PSET: RETURN
  18. 1170 DATA 2,69991d9996,1,6999999996,6,69999f9999,4,111111111f
  19.